home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 52 / Mac Magazin and MacEasy Magazine CD - Issue 52.iso / Updates / Stata 5.0 Ado-files / ado.sea / newado / _fracmdp.ado < prev    next >
Text File  |  1998-11-22  |  381b  |  21 lines
  1. *! version 1.0.0 PR 10Oct97.
  2. program define _fracmdp
  3. * 1=decimal places, rest=numbers sep by spaces
  4. * Output in $S_1.
  5. local dp `1'
  6. mac shift
  7. while "`1'"!="" {
  8.     cap confirm num `1'
  9.     if _rc { local ddp `ddp' `1' }
  10.     else {
  11.         if int(2*`1')==(2*`1') { local ddp `ddp' `1' } /* respect .5 */
  12.         else {
  13.             _fracddp `1' `dp'
  14.             local ddp `ddp' $S_1
  15.         }
  16.     }
  17.     mac shift
  18. }
  19. global S_1 `ddp'
  20. end
  21.